<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in._sa</name>
<id>-1</id>
<cardCount>35</cardCount>
<cardID>2642</cardID>
<listID>3922</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>320</width>
<height>240</height>
</cardSize>
<script>on openCardSend colorMe to this cardput the number of this card into cardNunlock screenpass openCardend openCardon closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,30end colorMeon openStack-- set lockScreen to trueAddColor install-- set lockMessages to true-- disable menuItem "Print Text" of menu "File"-- disable menuItem "Print Image" of menu "File"-- -- disable menu "Go"-- enable menu "Go"-- disable menuItem "Main" of menu "Go"-- disable menuItem "Help" of menu "Go"-- disable menuItem "Gallery" of menu "Go"-- disable menuItem "Encyclopedia" of menu "Go"-- disable menuItem "Explorer" of menu "Go"-- disable menuItem "Languages" of menu "Go"-- disable menuItem "Credits" of menu "Go"-- disable menu "Edit"-- set lockMessages to falsepass openStackset lockScreen to falseend openStackon closeStackAddColor removeSend colorMe to this card-- enable menuItem "Main" of menu "Go"-- enable menuItem "Help" of menu "Go"-- enable menuItem "Gallery" of menu "Go"-- enable menuItem "Encyclopedia" of menu "Go"-- enable menuItem "Explorer" of menu "Go"-- enable menuItem "Languages" of menu "Go"-- enable menuItem "Credits" of menu "Go"pass closeStackend closeStackon suspendStack-- enable menuItem "Main" of menu "Go"-- enable menuItem "Help" of menu "Go"-- enable menuItem "Gallery" of menu "Go"-- enable menuItem "Encyclopedia" of menu "Go"-- enable menuItem "Explorer" of menu "Go"-- enable menuItem "Languages" of menu "Go"-- enable menuItem "Credits" of menu "Go"pass suspendStackend suspendStackon resumeStackset lockMessages to true-- disable menuItem "Print Text" of menu "File"-- disable menuItem "Print Image" of menu "File"-- disable menu "Edit"-- disable menu "Go"set lockMessages to falseend resumeStackon WTInextgo to nextend WTInexton WTIpreviousgo to previousend WTIpreviouson WTImaingo to card 1 of stack "WFb 1996:Mac:Main"Send colorMe to this cardend WTImainon WTIhelpgo to card 1 of stack "WFB 1996:Mac:Help"Send colorMe to this cardend WTIhelpon WTIquitdoMenu "Quit HyperCard"end WTIquiton WTIgobackgo to recent card-- global lastCard, lastBook-- go to card lastCard of lastBookSend colorMe to this cardend WTIgobackon WTIlanguage fPath, sNameset the cursor to "busy" -- Set the "busy" cursorplaySound fPath, sName -- Play the sound (XCMD) path to file, resource nameend WTIlanguageon WTIprintTextprint bg field textend WTIprintTexton doMenu menuItemglobal mainLocglobal speakNameglobal lastImageif menuItem is "Go Back" thenWTIgobackelse if menuItem is "Help" thenWTIhelpexit doMenuelse if menuItem is "Main" thenWTImainexit doMenuelse if menuItem is "Multimedia" thenWTImmediaexit doMenuelse if menuItem is "Outline Search" thenWTIoutlineexit doMenuelse if menuItem is "Word Search" thengo to card 2 of mainLocexit doMenuelse if menuItem is "Credits" thenWTIcreditsexit doMenuelse if menuItem is "Geographic Search" thenWTIgeosearchexit doMenuelse if menuItem is "About Hypercard..." thenWTIcreditsexit doMenuelse if menuItem is "Choose…" thenchooseVoiceexit doMenuelse if menuItem is "Selected Text" thenreadSelTextexit doMenuelse if menuItem is "Search Here" thenask "Find"if the result is "Cancel" then-- the user clicked the Cancel buttonelse if it is empty then-- the user clicked OK with no answerelsefind itif the result is "Not Found" thenanswer "Text Not Found:" && itend ifend ifexit doMenuelse if menuItem is "Speak Name" thenput not speakName into speakNameset checkMark of menuItem "Speak Name" of menu "Options " to speakNameexit doMenuelse if menuItem is "Print Image" thenif lastImage is not empty thenPICTPrint lastImageend ifexit doMenuelse if menuItem is "Print Text" thenset lockErrorDialogs to truesend mouseUp to bg button "Print Text"set lockErrorDialogs to falseexit doMenuelse if menuItem is "Read Text" thenstop speechif the number of bg fields >= 1 thenset lockErrorDialogs to trueput bg field 1 into xset lockErrorDialogs to falsespeak x with voice voiceChoiceend ifexit doMenuelse if menuItem is "Copy Image" thenif lastImage is not empty thenPICTtoScrap lastImageend ifexit doMenuelse if menuItem is "Quit World Factbook" thendoMenu "Quit HyperCard"exit doMenuend ifpass doMenuend doMenuon WTInextgo to nextend WTInexton WTIpreviousgo to previousend WTIpreviouson WTIgoback-- global lastCard, lastBook-- go to card lastCard of lastBookgo to recent cardend WTIgobackon WTIgotopage CardN-- go to card CardNanswer "go to card # " & CardNend WTIgotopage</script>
